ITEM "Load Concepts"
SET my_objid: (STR objid)
SET myobjid: (VAL my_objid)
CC "Modeling" GET_ACT_MODEL 
#--> RESULT modelid: intValue 
SET myModelID: (modelid)
CC "Core" GET_ATTR_VAL objid:(myobjid) attrname:("Text File")
SET txt:(val)
CC "AdoScript" FREAD file: (txt)
SET text_new: (text)

CC "AdoScript" LISTBOX entries: (text_new) toksep: "@"


# WRITE ANNOTATION

IF (endbutton = ("ok")) 
{
	
	CC "Core" GET_CLASS_ID objid:(myobjid)

	SET myclassid: (classid)
	CC "Core" GET_ATTR_ID classid: (myclassid) attrname: "Detailed Annotation 2"

	SET myattrid: (attrid)
	
	#first delete the existing VALUE if available

	FOR mySelectedID in: (selection)
	{
  	 CC "Core" SET_ATTR_VAL objid:(myobjid) attrid:(myattrid) val:(mySelectedID)
	 EXIT
	}
	
} 
ELSE 
{
    CC "AdoScript" INFOBOX ("You cancelled the dialog without selecting detailed annotation!")
}